Option Explicit
Sub L_Sample006()
    Dim mySht  As Worksheet
    Dim myShp  As Shape
    Dim myConf As ControlFormat
    Set mySht = Worksheets.Add				'u@sW
    On Error Resume Next
    mySht.Shapes("TestBtn").Delete
    On Error Resume Next
    'wmBjpsW
    Set myShp = mySht.Shapes.AddFormControl(xlButtonControl, 100, 100, 100, 100)
    With myShp
        .Name = "TestBtn"                         	'W
        .TextFrame.Characters.Text = "TEST006"    	'ܦr
        .OnAction = "L_Sample006_1"               	'
    End With
    Set myShp = Nothing						'
    Set mySht = Nothing
End Sub

Sub L_Sample006_1()
    'n
    Dim myVar As Variant
    myVar = Application.Caller
    Select Case TypeName(myVar)
        Case "String"
            MsgBox myVar
    End Select
End Sub
